Những câu hỏi liên quan
Ngân
Xem chi tiết
Đinh Yến Phụng
Xem chi tiết
lê thiện thanh ngân
Xem chi tiết
Bacteria
21 tháng 12 2016 lúc 13:53

program bai_5;

uses crt;

var a,b,c :real;

BEGIN

write('nhap vao so a'); Readln(a);

write('nhap vao so b'); Readln(b);

write('nhap vao so c'); Readln(c);

if a<0 then a:=-a;

max:=a;

if max <b then max:=b;

if max<c then max:=c;

write('gia tri tuyet doi cua a la:',a);

write('so lon nhat trong ba so a,b,c la:',max);

Readln

END.

Thanks

Bình luận (1)
Lê Thị Cẩm Giang
Xem chi tiết
Minh Lệ
14 tháng 3 2023 lúc 19:39

Sửa lại đề bài : \(A=....+\dfrac{1}{n\left(n+2\right)}\)

Program HOC24;

var i,n: integer;

a: real;

begin

write('Nhap n: '); readln(n);

a:=0;

for i:=1 to n do a:=a+1/(n*(n+2));

write('A = ',a:6:2);

readln

end.

Bình luận (0)
fqfqfqfqfq
Xem chi tiết
Nguyễn Quốc Đạt
7 tháng 12 2023 lúc 20:39

Bạn kiểm tra lại đề nha; M, N có liên quan gì đến tổng S bạn nhỉ?

Bình luận (0)
Kamato Heiji
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 1 2021 lúc 18:54

Thuật toán: 

Bước 1: Nhập n

Bước 2: i←1; a←0;

Bước 3: a←a+1/(i*(i+2));

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: xuất a

Bước 7: Kết thúc

Viết chương trình:

uses crt;

var a:real;

i,n:longint;

begin

clrscr;

write('Nhap n='); readln(n);

a:=0;

for i:=1 to n do

a:=a+1/(i*(i+2));

writeln(a:4:2);

readln;

end.

Bình luận (3)
Bùi Anh Tuấn
25 tháng 1 2021 lúc 19:38

Bình luận (0)
lê Liên
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 2 2022 lúc 23:37

Câu 3: 

uses crt;

var s,i,n,t:int64;

begin

clrscr;

readln(n);

s:=1;

t:=0;

for i:=1 to n do 

begin

t:=t+i;

s:=s*i;

end;

writeln(t);

writeln(s);

readln;

end.

Bình luận (0)
Nguyễn Ngọc Bảo Ngân
Xem chi tiết
Nguyễn Ngọc Bảo Ngân
8 tháng 5 2022 lúc 13:57

trả lời 1 câu mà bạn bt làm thôi . cx đc

Bình luận (0)
Ne Su
Xem chi tiết
An Phú 8C Lưu
28 tháng 11 2021 lúc 9:29

THAM KHẢO:

uses crt;

var a,cv,dt:integer;

begin

clrscr;

write('a='); readln(a);

cv:=a*4;

dt:=sqr(a);

if a>0 then

begin

writeln('chu vi hinh vuong la: ',cv);

writeln('dien tich hinh vuong la: ',dt);

end

else writeln('vui long nhap so a lon hon 0');

readln;

end.

Bình luận (0)